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ONT ‘ip 1978, 1980, 1982, 1984 BY 
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SOFTWARE IS Saget on UNDER A LICENSE AND MAY BE USED AND sori’ 
IN ACCORDANCE WITH THE en OF SUCH LICENSE AND WITH THE 
USION OF THE ABOVE git NOTICE. THIS SOF TWARE OR ANY OTHER 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R eerege - NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE gh ty le IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORGT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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D. N. CUTLER 30-SEP-76 
SYSTEM SERVICE GET TIME 
MODIFIED BY: 
v03-001 KDM0086 
CORRECTLY ACQUIRE” V5 


SECONDARY PROCESSOR A 
PRIMARY PROCESSOR IS U 
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MACRO LIBRARY CALLS 


SSSDEF sDEFINE SYSTEM STATUS VALUES 


> LOCAL SYMBOLS 


; ARGUMENT LIST OFFSET DEFINITIONS 
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00000004 TIMADR=4 sADDRESS OF QUADWORD TO RECEIVE TIME 
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5022500 GET TIME ety 7 8¢:20:08 LEYS SRCISYSGEYTIM OMAR: 1 d 
; ~SBTTL GET TIME 
5 : EXESGETTIM = GET TIME 
5 : THIS SERVICE PROVIDES THE CAPABILITY TO RETRIEVE THE CURRENT SYSTEM TIME 
g ; IN 64 BIT FORMA 
60 ; INPUTS: 
00 6¢ : TIMADR(AP) = ADDRESS OF QUADWORD THAT I$ TO RECEIVE TIME. 
308 64 OUTPUTS: 
00 66 ; RO LOW BIT CLEAR INDICATES FAILURE TO RETRIEVE SYSTEM TIME 
000 68 : RO = SS$_ACCVIO = QUADWORD TO RECEIVE TIME CANNOT BE 
00 $9 QRITTEN BY CALLING ACCESS MODE. 
099 4 ; RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
9009 73 : RO = SS$_NORMAL = NORMAL COMPLETION. 
0000 75° 
0000000 ds .PSECT YEXEPAGED 
000 77 EXESGETTIM:: :GET TIME 
0000 00 A: .WORD 0 SENTRY MASK 
51 04 AC DO 000 7 OVL §_TIMADR(AP),R1 [GET ADDRESS OF QUADWORD TO RECEIVE TIME 
50 OC 3C 006 80 MOVZWL #SS$ AccviO, RO TASSUME QUADWORD NOT WRITABLE 
00 81 5S: IFNOWRT #8, (R1),10$ CAN QUADWORD BE WRITTEN? 
61 00000000'EF 7D 000F Be MOVQ EXES$GQ_SYSTIME,(R1) SSTORE SYSTEM TIME IN QUADWORD 
61 00000000'EF D1 0016 CMPL EXESG_ SYSTIME.(R1) [VERIFY THAT THE VALUE ACQUIRED 
EA 12 0010 4 BNE $ : WAS NOT BEING MODIFIED DURING 
04 Al 00000006'EF 01 OF 5 CMPL EXESGO_SYSTIME*4,4(R1) 5 THE ACQUISITION. THIS SYNCHS ACCESS BY 
EO 12 7 4 BNE g THE SECONDARY IN THE 11/782 SYSTEM. 
50 01 3C 0029 ? MOVZWL &#SS$_NORMAL,RO ‘SET NORMAL COMPLETION 
04 002C 88108: RET : 
0020 =. 89 
0020 690 END 
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Symbol table “SEP=1 SYS. SRCJS SGET TIM.MAR; 1 VOQ4- 
EXESGETTIM 00000000 ane 0g 
EXESGQ SYSTIME soeecees 
SS$_ACCVIO 009000) 
SS$_NORMAL = 0000 
TIMADR 
t¢ereoee we ec et eeesea $ 
! Psect synopsis ! 
peo enewrarone er oea $ 
PSECT name Allocation PSECT No. Attributes 
P Ss 00000000 ( ->) 00 ¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 +) O17 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YEXEPAGED 0000002D (¢ 45.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD URT NOVEC BYTE 
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! ;_Per formance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 3 80 :00:0 98 00:00:00.57 
zomnene processing 138 5 $4 “2F BF ae 8 69 
wn B, table sort ° 88: 8: 8-98 Sf IRD 
ass 3 0:00:00.6 Hf -2¢ 
Symbol table output 0:00:00.01 0:00:00.0 
Psect synopsis output QR 3-92 88:83:88 "e 
Cross-reference output :00: - 0 0:00:00.0 
Assembler run totals 40 00:00:05.60 00:00:16.8 


Tee working ssf Limit was 1200 pages. 

19504 bytes (39 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space a) Located o hold 410 non-local and 2 local symbols. 
90 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 
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: ; Macro Library statistics : 


Macro Library name Macros defined 
5 $S2280UAE: SYS.OBJJLIB.MLB;1 1 
$255$DUA SYSLIBJSTARLET.MLB;2 4 
TOTALS (all Libraries) 5 


473 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSGETTIM/OBJ=OBJ$:SYSGETTIM MSRC$:SYSGETTIM/UPDATE=(ENHS:SYSGETTIM) +EXECMLS/LIB 
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